home *** CD-ROM | disk | FTP | other *** search
/ Practical Internet 2002 November / Practical Internet November 2002.iso / pc / Software / Workshops / gg_setup.exe / #setuppath# / ggcss.exe / makecss.asp < prev    next >
Encoding:
Text File  |  2002-04-21  |  12.4 KB  |  347 lines
  1. <%@LANGUAGE="VBSCRIPT"%>
  2. <!-- #include file="connex.asp" -->
  3. <%
  4. 'On Error resume next
  5. set rsConfig = Server.CreateObject("ADODB.Recordset")
  6. rsConfig.ActiveConnection = connex
  7. rsConfig.Source = "SELECT * FROM CONFIG"
  8. rsConfig.CursorType = 0
  9. rsConfig.CursorLocation = 2
  10. rsConfig.LockType = 3
  11. rsConfig.Open()
  12. rsConfig_numRows = 0
  13. CFIELDS=rsConfig.Fields.Item("C_FIELD").Value
  14. CBUTTONS=rsConfig.Fields.Item("C_BUTTON").Value
  15. RETURNTO=Request.Form("RETURNTO")
  16. 'Text
  17. textcolor=Request.Form("F_T_COLOR")
  18. textalign=Request.Form("F_T_ALIGN")
  19. textsize=Request.Form("F_T_SIZE")
  20. textfont=Request.Form("F_T_FONT")
  21. textbold=Request.Form("F_T_BOLD")
  22. textunderline=Request.Form("F_T_UNDERLINE")
  23. textitalic=Request.Form("F_T_ITALIC")
  24. textfont=Trim(textfont)
  25. If InStr(textfont, " ") Then
  26. textfont=""""&textfont&""""
  27. else
  28. End If
  29. 'Fields
  30. fieldbordersize=Request.Form("F_F_SIZE")
  31. fieldborderstyle=Request.Form("F_F_STYLE")
  32. fieldbordercolor=Request.Form("F_F_BORDERCOLOR")
  33. fieldbgcolor=Request.Form("F_F_BGCOLOR")
  34. fieldtextcolor=Request.Form("F_F_COLOR")
  35. fieldbold=Request.Form("F_F_BOLD")
  36. fieldunderline=Request.Form("F_F_UNDERLINE")
  37. fielditalic=Request.Form("F_F_ITALIC")
  38. fieldfontsize=Request.Form("F_F_FSIZE")
  39. 'Buttons
  40. buttonbordersize=Request.Form("F_B_SIZE")
  41. buttonborderstyle=Request.Form("F_B_STYLE")
  42. buttonbordercolor=Request.Form("F_B_BORDERCOLOR")
  43. buttonbgcolor=Request.Form("F_B_BGCOLOR")
  44. buttontextcolor=Request.Form("F_B_COLOR")
  45. buttonbold=Request.Form("F_B_BOLD")
  46. buttonunderline=Request.Form("F_B_UNDERLINE")
  47. buttonitalic=Request.Form("F_B_ITALIC")
  48. buttonfontsize=Request.Form("F_B_FSIZE")
  49. 'Body
  50. bodybgcolor=Request.Form("F_BGCOLOR")
  51. scrollbararrow=Request.Form("F_ARROW")
  52. scrollbarhighlight=Request.Form("F_HIGHLIGHT")
  53. scrollbarface=Request.Form("F_FACE")
  54. scrollbar3dlight=Request.Form("F_3DLIGHT")
  55. scrollbardarkshadow=Request.Form("F_DARKSHADOW")
  56. scrollbarshadow=Request.Form("F_SHADOW")
  57. 'LINK
  58. linkcolorone=Request.Form("LONE_LINK")
  59. linksizeone=Request.Form("LONE_SIZE")
  60. linkfontone=Request.Form("LONE_FONT")
  61. boldlinkone=Request.Form("LONE_BOLD")
  62. underlinelinkone=Request.Form("LONE_UNDERLINE")
  63. italiclinkone=Request.Form("LONE_ITLALIC")
  64. linkfontone=Trim(linkfontone)
  65. If InStr(linkfontone, " ") Then
  66. linkfontone=""""&linkfontone&""""
  67. else
  68. End If
  69. 'LINK ACTIVE
  70. activecolortwo=Request.Form("LTWO_ACTIVE")
  71. linksizetwo=Request.Form("LTWO_SIZE")
  72. linkfonttwo=Request.Form("LTWO_FONT")
  73. boldlinktwo=Request.Form("LTWO_BOLD")
  74. underlinelinktwo=Request.Form("LTWO_UNDERLINE")
  75. italiclinktwo=Request.Form("LTWO_ITLALIC")
  76. linkfonttwo=Trim(linkfonttwo)
  77. If InStr(linkfonttwo, " ") Then
  78. linkfonttwo=""""&linkfonttwo&""""
  79. else
  80. End If
  81. 'LINK HOVER
  82. hovercolortre=Request.Form("LTRE_HOVER")
  83. linksizetre=Request.Form("LTRE_SIZE")
  84. linkfonttre=Request.Form("LTRE_FONT")
  85. boldlinktre=Request.Form("LTRE_BOLD")
  86. underlinelinktre=Request.Form("LTRE_UNDERLINE")
  87. italiclinktre=Request.Form("LTRE_ITLALIC")
  88. linkfonttre=Trim(linkfonttre)
  89. If InStr(linkfonttre, " ") Then
  90. linkfonttre=""""&linkfonttre&""""
  91. else
  92. End If
  93. 'LINK VISITED
  94. visitedcolorfor=Request.Form("LFOR_VISITED")
  95. linksizefor=Request.Form("LFOR_SIZE")
  96. linkfontfor=Request.Form("LFOR_FONT")
  97. boldlinkfor=Request.Form("LFOR_BOLD")
  98. underlinelinkfor=Request.Form("LFOR_UNDERLINE")
  99. italiclinkfor=Request.Form("LFOR_ITLALIC")
  100. linkfontfor=Trim(linkfontfor)
  101. If InStr(linkfontfor, " ") Then
  102. linkfontfor=""""&linkfontfor&""""
  103. else
  104. End If
  105. 'H1
  106. honeindent=Request.Form("H1_INDENT")
  107. honecolor=Request.Form("H1_COLOR")
  108. honealign=Request.Form("H1_ALIGN")
  109. honesize=Request.Form("H1_SIZE")
  110. honefont=Request.Form("H1_FONT")
  111. honebold=Request.Form("H1_BOLD")
  112. honeunderline=Request.Form("H1_UNDERLINE")
  113. honeitalic=Request.Form("H1_ITALIC")
  114. honefont=Trim(honefont)
  115. If InStr(honefont, " ") Then
  116. honefont=""""&honefont&""""
  117. else
  118. End If
  119. 'H2
  120. htwoindent=Request.Form("H2_INDENT")
  121. htwocolor=Request.Form("H2_COLOR")
  122. htwoalign=Request.Form("H2_ALIGN")
  123. htwosize=Request.Form("H2_SIZE")
  124. htwofont=Request.Form("H2_FONT")
  125. htwobold=Request.Form("H2_BOLD")
  126. htwounderline=Request.Form("H2_UNDERLINE")
  127. htwoitalic=Request.Form("H2_ITALIC")
  128. htwofont=Trim(htwofont)
  129. If InStr(htwofont, " ") Then
  130. htwofont=""""&htwofont&""""
  131. else
  132. End If
  133. 'H3
  134. hthreeindent=Request.Form("H3_INDENT")
  135. hthreecolor=Request.Form("H3_COLOR")
  136. hthreealign=Request.Form("H3_ALIGN")
  137. hthreesize=Request.Form("H3_SIZE")
  138. hthreefont=Request.Form("H3_FONT")
  139. hthreebold=Request.Form("H3_BOLD")
  140. hthreeunderline=Request.Form("H3_UNDERLINE")
  141. hthreeitalic=Request.Form("H3_ITALIC")
  142. hthreefont=Trim(hthreefont)
  143. If InStr(hthreefont, " ") Then
  144. hthreefont=""""&hthreefont&""""
  145. else
  146. End If
  147. 'H4
  148. fourindent=Request.Form("H4_INDENT")
  149. fourcolor=Request.Form("H4_COLOR")
  150. fouralign=Request.Form("H4_ALIGN")
  151. foursize=Request.Form("H4_SIZE")
  152. fourfont=Request.Form("H4_FONT")
  153. fourbold=Request.Form("H4_BOLD")
  154. fourunderline=Request.Form("H4_UNDERLINE")
  155. fouritalic=Request.Form("H4_ITALIC")
  156. fourfont=Trim(fourfont)
  157. If InStr(fourfont, " ") Then
  158. fourfont=""""&fourfont&""""
  159. else
  160. End If
  161. 'H5
  162. fiveindent=Request.Form("H5_INDENT")
  163. fivecolor=Request.Form("H5_COLOR")
  164. fivealign=Request.Form("H5_ALIGN")
  165. fivesize=Request.Form("H5_SIZE")
  166. fivefont=Request.Form("H5_FONT")
  167. fivebold=Request.Form("H5_BOLD")
  168. fiveunderline=Request.Form("H5_UNDERLINE")
  169. fiveitalic=Request.Form("H5_ITALIC")
  170. fivefont=Trim(fivefont)
  171. If InStr(fivefont, " ") Then
  172. fivefont=""""&fivefont&""""
  173. else
  174. End If
  175. 'H6
  176. hsixindent=Request.Form("H6_INDENT")
  177. hsixcolor=Request.Form("H6_COLOR")
  178. hsixalign=Request.Form("H6_ALIGN")
  179. hsixsize=Request.Form("H6_SIZE")
  180. hsixfont=Request.Form("H6_FONT")
  181. hsixbold=Request.Form("H6_BOLD")
  182. hsixunderline=Request.Form("H6_UNDERLINE")
  183. hsixitalic=Request.Form("H6_ITALIC")
  184. hsixfont=Trim(hsixfont)
  185. If InStr(hsixfont, " ") Then
  186. hsixfont=""""&hsixfont&""""
  187. else
  188. End If
  189.  
  190. ok=rsConfig.Fields.Item("CSS_LOCATION").Value
  191. Set FsoCss = CreateObject("Scripting.FileSystemObject")
  192. BkupCss = Server.MapPath("erase.css")
  193. NewCss = ok
  194. If FsoCss.FileExists(Server.MapPath("erase.css")) Then
  195. BkupCss = Server.MapPath("erase.css")
  196. FsoCss.CopyFile BkupCss, NewCss, True
  197. Else
  198. FsoCss.CreateTextFile(Server.MapPath("erase.css"))
  199. BkupCss = Server.MapPath("erase.css")
  200. FsoCss.CopyFile BkupCss, NewCss, True
  201. End If
  202. Set MakeCss = FsoCss.OpenTextFile(ok, 8)
  203. MakeCss.WriteLine("/*        Created With G-G CSSÖ        */")
  204. MakeCss.WriteLine("")
  205. MakeCss.WriteLine("body")
  206. MakeCss.WriteLine("{")
  207. MakeCss.WriteLine("background-color: "&bodybgcolor&";")
  208. MakeCss.WriteLine("scrollbar-arrow-color: "&scrollbararrow&";")
  209. MakeCss.WriteLine("scrollbar-highlight-color: "&scrollbarhighlight&";")
  210. MakeCss.WriteLine("scrollbar-face-color: "&scrollbarface&";")
  211. MakeCss.WriteLine("scrollbar-3dlight-color: "&scrollbar3dlight&";")
  212. MakeCss.WriteLine("scrollbar-darkshadow-color: "&scrollbardarkshadow&";")
  213. MakeCss.WriteLine("scrollbar-shadow-color: "&scrollbarshadow&";")
  214. MakeCss.WriteLine("color: "&textcolor&";")
  215. MakeCss.WriteLine("text-align: "&textalign&";")
  216. MakeCss.WriteLine("font-size: "&textsize&";")
  217. MakeCss.WriteLine("font: "&textfont&";")
  218. MakeCss.WriteLine("font-weight: "&textbold&";")
  219. MakeCss.WriteLine("text-decoration: "&textunderline&";")
  220. MakeCss.WriteLine("font-style: "&textitalic&";")
  221. MakeCss.WriteLine("}")
  222. MakeCss.WriteLine("a:link")
  223. MakeCss.WriteLine("{")
  224. MakeCss.WriteLine("color: "&linkcolorone&";")
  225. MakeCss.WriteLine("font-size: "&linksizeone&";")
  226. MakeCss.WriteLine("font: "&linkfontone&";")
  227. MakeCss.WriteLine("font-weight: "&boldlinkone&";")
  228. MakeCss.WriteLine("text-decoration: "&underlinelinkone&";")
  229. MakeCss.WriteLine("font-style: "&italiclinkone&";")
  230. MakeCss.WriteLine("}")
  231. MakeCss.WriteLine("a:active")
  232. MakeCss.WriteLine("{")
  233. MakeCss.WriteLine("color: "&activecolortwo&";")
  234. MakeCss.WriteLine("font-size: "&linksizetwo&";")
  235. MakeCss.WriteLine("font: "&linkfonttwo&";")
  236. MakeCss.WriteLine("font-weight: "&boldlinktwo&";")
  237. MakeCss.WriteLine("text-decoration: "&underlinelinktwo&";")
  238. MakeCss.WriteLine("font-style: "&italiclinktwo&";")
  239. MakeCss.WriteLine("}")
  240. MakeCss.WriteLine("a:visited")
  241. MakeCss.WriteLine("{")
  242. MakeCss.WriteLine("color: "&visitedcolorfor&";")
  243. MakeCss.WriteLine("font-size: "&linksizefor&";")
  244. MakeCss.WriteLine("font: "&linkfontfor&";")
  245. MakeCss.WriteLine("font-weight: "&boldlinkfor&";")
  246. MakeCss.WriteLine("text-decoration: "&underlinelinkfor&";")
  247. MakeCss.WriteLine("font-style: "&italiclinkfor&";")
  248. MakeCss.WriteLine("}")
  249. MakeCss.WriteLine("a:hover")
  250. MakeCss.WriteLine("{")
  251. MakeCss.WriteLine("color: "&hovercolortre&";")
  252. MakeCss.WriteLine("font-size: "&linksizetre&";")
  253. MakeCss.WriteLine("font: "&linkfonttre&";")
  254. MakeCss.WriteLine("font-weight: "&boldlinktre&";")
  255. MakeCss.WriteLine("text-decoration: "&underlinelinktre&";")
  256. MakeCss.WriteLine("font-style: "&italiclinktre&";")
  257. MakeCss.WriteLine("}")
  258. MakeCss.WriteLine("."&CBUTTONS)
  259. MakeCss.WriteLine("{")  
  260. MakeCss.WriteLine("border: "&buttonbordersize&" "&buttonborderstyle&" "&buttonbordercolor&";")
  261. MakeCss.WriteLine("background-color: "&buttonbgcolor&";")
  262. MakeCss.WriteLine("color: "&buttontextcolor&";")
  263. MakeCss.WriteLine("font-weight: "&buttonbold&";")
  264. MakeCss.WriteLine("text-decoration: "&buttonunderline&";")
  265. MakeCss.WriteLine("font-style: "&buttonitalic&";")
  266. MakeCss.WriteLine("font-size: "&buttonfontsize&";")
  267. MakeCss.WriteLine("}")
  268. MakeCss.WriteLine("."&CFIELDS)
  269. MakeCss.WriteLine("{")  
  270. MakeCss.WriteLine("border: "&fieldbordersize&" "&fieldborderstyle&" "&fieldbordercolor&";")
  271. MakeCss.WriteLine("background-color: "&fieldbgcolor&";")
  272. MakeCss.WriteLine("color: "&fieldtextcolor&";")
  273. MakeCss.WriteLine("font-weight: "&fieldbold&";")
  274. MakeCss.WriteLine("text-decoration: "&fieldunderline&";")
  275. MakeCss.WriteLine("font-style: "&fielditalic&";")
  276. MakeCss.WriteLine("font-size: "&fieldfontsize&";")
  277. MakeCss.WriteLine("}")
  278. MakeCss.WriteLine("H1")
  279. MakeCss.WriteLine("{")
  280. MakeCss.WriteLine("text-indent: "&honeindent&";")
  281. MakeCss.WriteLine("color: "&honecolor&";")
  282. MakeCss.WriteLine("text-align: "&honealign&";")
  283. MakeCss.WriteLine("font-size: "&honesize&";")
  284. MakeCss.WriteLine("font: "&honefont&";")
  285. MakeCss.WriteLine("font-weight: "&honebold&";")
  286. MakeCss.WriteLine("text-decoration: "&honeunderline&";")
  287. MakeCss.WriteLine("font-style: "&honeitalic&";")
  288. MakeCss.WriteLine("}")
  289. MakeCss.WriteLine("H2")
  290. MakeCss.WriteLine("{")
  291. MakeCss.WriteLine("text-indent: "&htwoindent&";")
  292. MakeCss.WriteLine("color: "&htwocolor&";")
  293. MakeCss.WriteLine("text-align: "&htwoalign&";")
  294. MakeCss.WriteLine("font-size: "&htwosize&";")
  295. MakeCss.WriteLine("font: "&htwofont&";")
  296. MakeCss.WriteLine("font-weight: "&htwobold&";")
  297. MakeCss.WriteLine("text-decoration: "&htwounderline&";")
  298. MakeCss.WriteLine("font-style: "&htwoitalic&";")
  299. MakeCss.WriteLine("}")
  300. MakeCss.WriteLine("H3")
  301. MakeCss.WriteLine("{")
  302. MakeCss.WriteLine("text-indent: "&hthreeindent&";")
  303. MakeCss.WriteLine("color: "&hthreecolor&";")
  304. MakeCss.WriteLine("text-align: "&hthreealign&";")
  305. MakeCss.WriteLine("font-size: "&hthreesize&";")
  306. MakeCss.WriteLine("font: "&hthreefont&";")
  307. MakeCss.WriteLine("font-weight: "&hthreebold&";")
  308. MakeCss.WriteLine("text-decoration: "&hthreeunderline&";")
  309. MakeCss.WriteLine("font-style: "&hthreeitalic&";")
  310. MakeCss.WriteLine("}")
  311. MakeCss.WriteLine("H4")
  312. MakeCss.WriteLine("{")
  313. MakeCss.WriteLine("text-indent: "&fourindent&";")
  314. MakeCss.WriteLine("color: "&fourcolor&";")
  315. MakeCss.WriteLine("text-align: "&fouralign&";")
  316. MakeCss.WriteLine("font-size: "&foursize&";")
  317. MakeCss.WriteLine("font: "&fourfont&";")
  318. MakeCss.WriteLine("font-weight: "&fourbold&";")
  319. MakeCss.WriteLine("text-decoration: "&fourunderline&";")
  320. MakeCss.WriteLine("font-style: "&fouritalic&";")
  321. MakeCss.WriteLine("}")
  322. MakeCss.WriteLine("H5")
  323. MakeCss.WriteLine("{")
  324. MakeCss.WriteLine("text-indent: "&fiveindent&";")
  325. MakeCss.WriteLine("color: "&fivecolor&";")
  326. MakeCss.WriteLine("text-align: "&fivealign&";")
  327. MakeCss.WriteLine("font-size: "&fivesize&";")
  328. MakeCss.WriteLine("font: "&fivefont&";")
  329. MakeCss.WriteLine("font-weight: "&fivebold&";")
  330. MakeCss.WriteLine("text-decoration: "&fiveunderline&";")
  331. MakeCss.WriteLine("font-style: "&fiveitalic&";")
  332. MakeCss.WriteLine("}")
  333. MakeCss.WriteLine("H6")
  334. MakeCss.WriteLine("{")
  335. MakeCss.WriteLine("text-indent: "&hsixindent&";")
  336. MakeCss.WriteLine("color: "&hsixcolor&";")
  337. MakeCss.WriteLine("text-align: "&hsixalign&";")
  338. MakeCss.WriteLine("font-size: "&hsixsize&";")
  339. MakeCss.WriteLine("font: "&hsixfont&";")
  340. MakeCss.WriteLine("font-weight: "&hsixbold&";")
  341. MakeCss.WriteLine("text-decoration: "&hsixunderline&";")
  342. MakeCss.WriteLine("font-style: "&hsixitalic&";")
  343. MakeCss.WriteLine("}")
  344. MakeCss.Close
  345. Response.Redirect(RETURNTO)
  346. rsConfig.Close()
  347. %>